home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.1 (User) / OpenStep 4.1 (User).iso / usr / lib / transcript / enscript.pro < prev    next >
Encoding:
Text File  |  1996-09-02  |  2.0 KB  |  43 lines
  1. % Start of enscript.pro -- prolog for text file translator
  2. % Copyright (c) 1984,1985,1987 Adobe Systems Incorporated. All Rights Reserved. 
  3. % GOVERNMENT END USERS: See Notice file in TranScript library directory
  4. % -- probably /usr/lib/ps/Notice
  5. % RCSID: $Header: /disks/hobo/vp6/snichols/rel3.0/transcript/lib/RCS/enscript.pro,v 3.0 1991/06/17 17:08:31 snichols Exp $
  6. /$enscript 50 dict def $enscript begin
  7. /S/show load def
  8. /bd { bind def } bind def
  9. /X{exch 0 rmoveto S} bd
  10. /Y{exch 0 exch rmoveto S} bd
  11. /B{3 1 roll moveto S} bd
  12. /F{$fd exch get setfont} def
  13. /U{1440 mul}def
  14. /UP{U 72 div}def
  15. /StartPage{/svpg save def .05 dup scale} bd
  16. /EndPage{svpg restore showpage} bd
  17. /DoPreFeed{/statusdict where{pop
  18.  statusdict/prefeed known{statusdict exch/prefeed exch put 0}if}if pop} bd
  19. /SetUpFonts
  20.  {dup/$fd exch array def{findfont exch scalefont $fd 3 1 roll put}repeat}def
  21. /InitGaudy{/Columns exch def
  22.  /ftD /Times-Bold findfont 12 UP scalefont def
  23.  /ftF /Times-Roman findfont 14 UP scalefont def
  24.  /ftP /Helvetica-Bold findfont 30 UP scalefont def} bd
  25. /LB{/pts exch UP def /charcolor exch def /boxcolor exch def /font exch def
  26.  /label exch def /dy exch def /dx exch def /lly exch def /llx exch def
  27.  gsave boxcolor setgray
  28.  llx lly moveto dx 0 rlineto 0 dy rlineto dx neg 0 rlineto closepath fill
  29.  /lines label length def
  30.  /yp lly dy add dy lines pts mul sub 2 div sub pts .85 mul sub def
  31.  font setfont charcolor setgray
  32.  label {dup stringwidth pop 2 div llx dx 2 div add exch sub yp moveto show
  33.    /yp yp pts sub def}forall grestore} bd
  34. /Gaudy{/plength exch def /BarLength exch def /hy exch def /hx exch def
  35.  /Page exch def /Date exch def  /File exch def /Comment exch def
  36.  hx hy  BarLength 144 sub .25 U [File] ftF .97 0 14 LB
  37.  hx hy 360 add BarLength 144 sub .25 U [Comment] ftF 1 0 14 LB
  38.  hx hy 1 U .5 U Date ftD .7 0 12 LB
  39.  BarLength 1080 sub hy 1 U .5 U [Page] ftP .7 1 30 LB
  40.  2 1 Columns {1 sub plength Columns div mul 172.80 sub hy moveto 0 0 hy sub rlineto
  41.  stroke}for } bd
  42. /Landscape { 90 rotate 0 exch translate } bd
  43.